home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 December
/
Ahoy_Magazine_88-12_1988_Double_L.d64
/
Smooth Scroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
56 lines
10 rem -sys52224 to start-
20 rem -simple smooth scroll-
30 rem -by marcus linkert-
40 h$="0123456789abcdef"
50 hd$=""
60 v=52223
70 read hd$:v=v+1:printv,hd$
80 if v=52435 then goto 500
90 if len(hd$)=0then print"error":end
100 iflen(hd$)<>2then print"error":end
110 h=0
120 fori=1to16
130 ifleft$(hd$,1)=mid$(h$,i,1)thenh=i:i=16
140 next i
150 if h=0 then poke v,0:goto 70
160 h=h-1
170 l=0
180 fori=1to16
190 if right$(hd$,1)=mid$(h$,i,1)thenl=i:i=16
200 nexti
210 if l=0 then pokev,0:goto 70
220 l=l-1
230 d=h*16+l
240 pokev,d
250 goto 70
260 data 78,a9,3e,8d,14,03,a9,cc,8d
270 data 15,03,ad,11,d0,29,7f,8d,11
280 data d0,a9,90,8d,12,d0,a9,81,8d
290 data 19,d0,8d,1a,d0,ad,0e,dc,29
300 data fe,8d,0e,dc,ad,16,d0,29,f7
310 data 09,07,8d,16,d0,a9,e0,85,fb
320 data a9,cc,85,fc,c6,fb,58,60,ad
330 data 19,d0,29,01,f0,23,c6,fd,10
340 data 04,a9,07,85,fd,c6,fd,ad,16
350 data d0,29,f0,05,fd,8d,16,d0,a9
360 data 79,8d,14,03,a9,cc,8d,15,03
370 data a9,a4,8d,12,d0,a9,81,8d,19
380 data d0,8d,1a,d0,ad,0d,dc,68,a8
390 data 68,aa,68,40,ad,19,d0,29,01
400 data f0,48,ad,16,d0,09,07,8d,16
410 data d0,a5,fd,d0,2d,a8,c8,b9,08
420 data 06,88,99,08,06,4c,9a,cc,ea
430 data ea,c8,c0,28,d0,ee,a0,00,e6
440 data fb,d0,02,e6,fc,b1,fb,d0,0b
450 data a9,e0,85,fb,a9,cc,85,fc,4c
460 data a7,cc,8d,2f,06,a9,3e,8d,14
470 data 03,a9,cc,8d,15,03,a9,90,8d
480 data 12,d0,a9,81,8d,19,d0,8d,1a
490 data d0,4c,31,ea,00
500 rem -message writer-
510 a=52448:poke204,0:print"message:"
520 get a$:if a$="" then 520
530 if a$=chr$(13) then pokea,0:end
540 if asc(a$)<65 then printa$;:pokea,asc(a$):a=a+1:goto 520
550 printa$;:pokea,asc(a$)-64:a=a+1:goto 520